home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / djmeter / testmete.frm < prev   
Text File  |  1998-12-16  |  2KB  |  92 lines
  1. VERSION 5.00
  2. Object = "*\A..\..\..\LIFESA~1\VBPROJ~1\PROGRE~1\ProgressMeter.vbp"
  3. Begin VB.Form TestMeter 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3195
  11.    ScaleWidth      =   4680
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin ProgressMeter.DJMeter DJMeter1 
  14.       Height          =   570
  15.       Left            =   1155
  16.       TabIndex        =   3
  17.       Top             =   225
  18.       Width           =   2760
  19.       _ExtentX        =   4868
  20.       _ExtentY        =   1005
  21.       Caption         =   "DJMeter1"
  22.       BackColor       =   -2147483633
  23.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  24.          Name            =   "MS Sans Serif"
  25.          Size            =   8.25
  26.          Charset         =   0
  27.          Weight          =   400
  28.          Underline       =   0   'False
  29.          Italic          =   0   'False
  30.          Strikethrough   =   0   'False
  31.       EndProperty
  32.       BackColor       =   -2147483633
  33.    End
  34.    Begin VB.HScrollBar HScroll1 
  35.       Height          =   255
  36.       Left            =   960
  37.       Max             =   100
  38.       TabIndex        =   1
  39.       Top             =   930
  40.       Width           =   3135
  41.    End
  42.    Begin VB.CommandButton Command1 
  43.       Caption         =   "Command1"
  44.       Height          =   495
  45.       Left            =   1665
  46.       TabIndex        =   0
  47.       Top             =   2520
  48.       Width           =   1215
  49.    End
  50.    Begin VB.Label lblPercent 
  51.       AutoSize        =   -1  'True
  52.       Height          =   195
  53.       Left            =   1920
  54.       TabIndex        =   2
  55.       Top             =   1200
  56.       Width           =   45
  57.    End
  58. End
  59. Attribute VB_Name = "TestMeter"
  60. Attribute VB_GlobalNameSpace = False
  61. Attribute VB_Creatable = False
  62. Attribute VB_PredeclaredId = True
  63. Attribute VB_Exposed = False
  64. Option Explicit
  65.  
  66. Private Sub Command1_Click()
  67.  
  68.     Dim lngX As Long
  69.     Dim lngY As Long
  70.     
  71.     For lngY = 0 To 100
  72.          DJMeter1.Percent = lngY
  73.          For lngX = 1 To 1000
  74.             DoEvents
  75.         Next lngX
  76.     Next lngY
  77.     
  78. End Sub
  79.  
  80. Private Sub HScroll1_Change()
  81.  
  82.     DJMeter1.Percent = HScroll1.Value
  83.     
  84. End Sub
  85.  
  86. Private Sub DJMeter1_Change()
  87.  
  88.     lblPercent.Caption = DJMeter1.Percent
  89.     
  90. End Sub
  91.  
  92.